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COPYRIGHT (c) 1978, 1980, 1982, 1984 BY 

DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASSACHUSETTS. 

ALL RIGHTS RESERVED. 
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15 ;* INCLUSION OF THE ABOVE COPYRIGH TICE. THI RE O THE * 
14 ;* COPIES THEREOF MAY NOT BE VIDED OR OTHERWISE MADE AVAILABLE TO ANY * 
0 15 ;* OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY * 
8 i ‘ TRANSFERRED. * 
4 om 
8 18 ;* THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE * 
19 ;* AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT * 
44 y 3* CORPORATION. * 
2* ® 
0000 ¢ 3* DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS * 
si 4 is SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. * 
g ® 
000 5 ;* 
000 6 FEAR AAA AAA EE AERA ERE EAA AAEAAEAAAEAREREAAAAAEEAREAEAEARAREAEAAAREAAAEEEE 
0000 ee 
0000 8 ; 
st qe ; FACILITY: LANGUAGE INDEPENDENT SUPPORT 
0000 13 “ABSTRACT: 
000 § : This module contains the routine that converts packed numbers 
000 5 to double floating. 
0000 4; 
8 > 2 
000 § i-- 
0000 3 
0000 8 ; VERSION: 1 
0000 y 3 
0000 40 ; HISTORY: 
0000 41; 
00 $s 3 AUTHOR: 
43 ; 
44; 
$2 3 
‘3 3 
48 ; 
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-SBTTL HISTORY ; Detailed Current Edit History 


Edit History for Version 1 of OTSCVTPD 


“001 - Original. MLJ 14-Mar-1979 
- Make oacerne references Pac RKR 17-JULY-1979 
- change 2 al byrelerences to FORSCNV_IN_DEFG to OTSSCVT_T_D 


whe, 4 TB RKR ih od a 
change gouree name to OTS i ‘senate old entry point name. 
PLL 21-Jan- 
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-SBTTL DECLARATIONS 


; INCLUDE FILES: 
SOSCDEF 
: EXTERNAL SYMBOLS: 
-DSABL GBL ; Prevent undeclared symbols from being 
; automatically global 
-EXTRN OTSSCVT_T_D ; D, E. F, G Conversion routine 
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> MACROS: 
: NONE 


> PSECT DECLARATIONS: 
.PSECT _OTSSCODE PIC, SHR, LONG, EXE, NOWRT,- 
USR, CON, REL, LCL, RD 


: EQUATED SYMBOLS: 
: NONE 
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NONE 


S33 

[=] 

So 
woouowowowno 
ou 


a A 


ov 


SSsssssss 


SSOSOSCSCOCSOOSOSOSOSOSOSOOOSOOSSOSOSOOOOSo 


OOOCOOCOSOSOSOSSSOCOSCSOOSOOSOOOSOOOSOOOOOSOoOO 


Coooo 
oooo 


Sooocooo 


ooo 
oO 


00 
: 
00 
: 


ee ee ee ee ee ee ee ee ee ed ed od ed Sd dd 8 od dd 


H 1 
ed to Double 16-SEP-1984 7:25:19 VAX/VMS Macr 
met 90:93:12 LIBRTL.SRCJOTSCVTPD.MAR; 1 


o V04-00 
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ee 
FUNCTIONAL DESCRIPTION: 


Converts packed numbers to double floating. 

; CALLING SEQUENCE: 
JSB OTSSCVTPD_RO (scale.rl.v, srclen.rl.v, src.rp.r, dst.wd.r) 
Arguments are passed in R6, R7, RB and RI. 

INPUT PARAMETERS: 

SCALE.rl.v The power of ten by which the internal 
reeeveogeat a” of the source must be 
multiplied to scale the same as the 
internal representation of the dest. 

SRCLEN.rl.v The number of digits in the source 

SRC.rp.r The number to be converted 
; IMPLICIT INPUTS: 
ALL of the trap bits in the PSL are assumed off. 
; OUTPUT PARAMETERS: 
OST.wd.r The place to store the converted number 
IMPLICIT OUTPUTS: 
NONE 
; FUNCTION VALUE: 
1 = SUCCESS, 0 = FAILURE 
; SIDE EFFECTS: 


Destroys registers RO through R9. 


Sete Se Ge te te 
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OTSSCVTPD_R9:: 
COBSCVTPD_R9:: 
SOBL2 #40,SP : Space for temp string and result 
CVTPS 7, (RB) ,.#31,8(SP) > Make a separate sign string 
: Make a descriptor for the leading separate string. 
. PUSHL R3 3; Address = temp string 
MOVB #0SC$K_CLASS_S,-(SP) ; Class = static 
MOVB ogscst DTYPE_T,-(SP) ; Data type_= ASCII text 
MOVW #32,-(SP) : Length = 32 bytes 
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#805"? OTSSCVTPD_RO ° HSepc1obe Sisisiie Lelonte.eaciorseureo.mar;1 29° (dy ¢ 
1 ] 5 : Now call the conversion routine. 
7E 38 cE iF 1 : ; MNEGL R6,-(SP) ; Scale. tector 
D 1 1 8 PUSHL # 3: DO n fraction 
10 AE oF 19 1 PUSHAB 16(SP) 3; Address of result area 
C AE F |, ee ? PUSHAB 12(SP) 3; Address of Sener tpter 
00000000 * GF 9 43 1F CALLS @ a enewe T_D 3; Call the routine 
6° 0 5 3 1 § BLBC RO,2$ : Failure, ae be overflow 
69 A 16 MOVD 8(§P),(R9) : Store result 
0 g D D 164 MOVL #1,R0 3; Indicate success 
E 0 9 192 1$ apete #48,SP ; petete stack temps 
4 183 : 4 
ri 198 3 3; Come here on overflow to store the reserved operand. 
69 01 OF 79 8 4 159 bs: ASHQ #1541, (R9) ; Store reserved operand 
50 o4 0038 #171 CLRL RO ; Indicate failure 
F411 + " \v¢ ; BRB 1$ ; Delete stack temps and return 
003¢ «174° END 
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; Performance indicators ; 


CPU Time Elapsed Time 


Phase 


Page faults 


Initialization ‘ m4 f 8-9 g: 0: 1-39 
rocess :00:00. :00:03. 

Symbol vais 2 ag 700: ott 0: ; 4:85 
adie sor H : . : : ° 

: 4 :00:00.32 :00: 0-6) 

cess of table output :00:00.01 0:00:00.01 
Psect synopsis output :00:00. 0: Bon 8 
Cross-reference output 0:00:00. we 3-9 
Assembler run totals 33 0:00:01. 0:00:12.1 

e working set Limit was 1050 pages. 


B17 bytes (16 pages) of virtual memory were used to buffer the intermediate code. 

There were 10 pages of symbol table space “ie to hold 134 non-local and 2 Local symbols. 
174 source Lines were read in Pass 1, produci ng | 0 object records in Pass 2. 

peges of virtual memory were used to define 7 macros. 
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; Macro library statistics ! 


emer ene pantie TE ~tnctntindnincd tote | 


Macro Library name Macros defined 
-$255$DUA28: CSYSLIBISTARLET.MLB;2 4 
190 GETS were required to define 4 macros. 


There were no errors, warnings or information messages. 


ae NOEXE NORD 
EXE RD 


COBSCVTPD_RY 9 RG 02 
DSC$K_CLASS -$ 
DSCSK"DTYPE"T 3 
OTSSCUTPD_RI ia 0¢ 
OTSSCVT_T_D eeeerene 
t¢ocemeenasecen aca} 
! Psect synopsis ! 
Se 
PSECT name Allocation PSECT No. Attributes 
- ABS . 0000 8 ( -) 00 ¢ 0.) NOPIC USR CON ABS LCL 
SABSS 0000 ( -> QO7 ¢ 1.) NOPIC USR CON ABS LCL NOSHR 
-OTSSCODE 000005C ¢«¢ 60.) 02¢ 2.) PIC USR CON REL LCL 
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NOWRT NOVEC BYTE 
WRT NOVEC BYTE 


SHR EXE RD NOWRT NOVEC LONG 


MACRO/ENABLE =SUPPRESSION/D1 SABLE=(GLOBAL , TRACEBACK) /LIS=LIS$:OTSCVTPD/OBJ=OBJ$:OTSCVTPD MSRC$:OTSCVTPD/UPDATE=(ENHS:OTSCVTPD) 
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